home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr25 / dkb32.zip / DKB32DAT.ZIP / NTREAL2.DAT < prev    next >
Text File  |  1991-05-16  |  8KB  |  294 lines
  1. {Title-"Not A Trace of Reality"}
  2.  
  3. { -+ Compuserve Hall Of Fame award winner +- }
  4.  
  5. { This one is hard to describe and easy to look at. Have fun with it! }
  6. { - Drew Wells CIS 73767,1244 }
  7. { 11/29/90 }
  8.  
  9.  
  10. { This file is for use with DKBTrace by David Buck
  11.   and is released into the public domain. }
  12.  
  13. { Note - This one is a memory hog for pc's because of the twister }
  14. {        If you can't run it, try editing out some of the twister's }
  15. {        parts.  Requires include file twister.inc }
  16.  
  17. INCLUDE "shapes.dat"
  18. INCLUDE "colors.dat"
  19. INCLUDE "textures.dat"
  20.  
  21. DECLARE It = 
  22. QUADRIC Sphere SCALE <4.0 0.3 0.3> END_QUADRIC
  23.  
  24. { Camera/Viewer }
  25. VIEW_POINT
  26.    DIRECTION <0.0 0.0  1.5>
  27.    UP  <0.0  1.0  0.0>
  28.    RIGHT <-1.333 0.0 0.0>
  29.    TRANSLATE < -15.0  5.0  120.0>
  30.    LOOK_AT <10.0 12.0 55.0>
  31. END_VIEW_POINT
  32.  
  33. DECLARE Purple_Clouds = TEXTURE
  34.       0.05
  35.        BOZO
  36.        TURBULENCE 0.6
  37.        COLOUR_MAP
  38.           [0.0 0.5   COLOUR RED 0.9 GREEN 0.5  BLUE 0.6
  39.                      COLOUR RED 0.4 GREEN 0.0  BLUE 0.4]  
  40.           [0.5 0.6   COLOUR RED 1.0 GREEN 1.0  BLUE 1.0 ALPHA 1.0
  41.                      COLOUR RED 1.0 GREEN 1.0  BLUE 1.0 ALPHA 1.0 ]
  42.           [0.6 1.001 COLOUR RED 1.0 GREEN 1.0  BLUE 1.0 ALPHA 1.0
  43.                      COLOUR RED 1.0 GREEN 1.0  BLUE 1.0 ALPHA 1.0]
  44.        END_COLOUR_MAP
  45. END_TEXTURE
  46.  
  47. DECLARE Sunset_Sky = TEXTURE
  48.       0.05
  49.        GRADIENT <0.0 1.0 0.0>
  50.        
  51.        COLOUR_MAP   
  52.           [0.0 0.4   COLOUR RED 0.8 GREEN 0.0 BLUE 0.0
  53.                      COLOUR RED 0.4 GREEN 0.0 BLUE 0.4]
  54.           [0.4 0.6   COLOUR RED 0.4 GREEN 0.0 BLUE 0.4
  55.                      COLOUR RED 0.0 GREEN 0.0 BLUE 0.2]
  56.           [0.6 1.001 COLOUR RED 0.0 GREEN 0.0 BLUE 0.2
  57.                      COLOUR RED 0.0 GREEN 0.0 BLUE 0.0]
  58.        END_COLOUR_MAP
  59.        SCALE <700.0 700.0 700.0>
  60. END_TEXTURE
  61.  
  62. DECLARE Twister = OBJECT
  63.   UNION
  64.     INCLUDE "twister.inc"
  65.   END_UNION
  66.   BOUNDED_BY
  67.     SPHERE <0.0 5.0 0.0> 6.0  END_SPHERE
  68.   END_BOUND
  69.   TEXTURE
  70.     White_Wood
  71.     0.05
  72.     SCALE <3.0 3.0 3.0>
  73.     AMBIENT 0.1
  74.     DIFFUSE 0.99
  75.   END_TEXTURE
  76.   COLOR Blue
  77. END_OBJECT
  78.  
  79. DECLARE Slice = QUADRIC
  80.    Sphere
  81.    TRANSLATE <0.0 0.0 3.0>
  82.    SCALE <0.25 1.00 0.25>
  83. END_QUADRIC
  84.  
  85. DECLARE Thing = OBJECT
  86.   UNION
  87.     QUADRIC Slice END_QUADRIC
  88.     QUADRIC Slice ROTATE <0.0 -20.0  0.0> END_QUADRIC
  89.     QUADRIC Slice ROTATE <0.0 -40.0  0.0> END_QUADRIC
  90.     QUADRIC Slice ROTATE <0.0 -60.0  0.0> END_QUADRIC
  91.     QUADRIC Slice ROTATE <0.0 -80.0  0.0> END_QUADRIC
  92.     QUADRIC Slice ROTATE <0.0 -100.0 0.0> END_QUADRIC
  93.     QUADRIC Slice ROTATE <0.0 -120.0 0.0> END_QUADRIC
  94.     QUADRIC Slice ROTATE <0.0 -140.0 0.0> END_QUADRIC
  95.     QUADRIC Slice ROTATE <0.0 -160.0 0.0> END_QUADRIC
  96.     QUADRIC Slice ROTATE <0.0  180.0 0.0> END_QUADRIC
  97.     QUADRIC Slice ROTATE <0.0 -200.0 0.0> END_QUADRIC
  98.     QUADRIC Slice ROTATE <0.0 -220.0 0.0> END_QUADRIC
  99.     QUADRIC Slice ROTATE <0.0 -240.0 0.0> END_QUADRIC
  100.     QUADRIC Slice ROTATE <0.0 -260.0 0.0> END_QUADRIC
  101.     QUADRIC Slice ROTATE <0.0 -280.0 0.0> END_QUADRIC
  102.     QUADRIC Slice ROTATE <0.0 -300.0 0.0> END_QUADRIC
  103.     QUADRIC Slice ROTATE <0.0 -320.0 0.0> END_QUADRIC
  104.     QUADRIC Slice ROTATE <0.0 -340.0 0.0> END_QUADRIC
  105.   END_UNION
  106.   BOUNDED_BY
  107.       QUADRIC Sphere SCALE <6.7 6.7 6.7> END_QUADRIC
  108.   END_BOUND      
  109.   TEXTURE
  110.     COLOR RED 0.8 GREEN 0.22 BLUE 0.1
  111.     BUMPS 0.3
  112.     SCALE < 0.1 0.1 0.1>
  113.     AMBIENT 0.1
  114.     DIFFUSE 0.9
  115.     PHONG 0.75
  116.     PHONGSIZE 30.0
  117.   END_TEXTURE
  118.   COLOR RED 0.8 GREEN 0.22 BLUE 0.1
  119. END_OBJECT    
  120.  
  121. DECLARE Slice2 = SPHERE <0.0 0.0 0.5> 0.1 END_SPHERE
  122.  
  123. DECLARE Thing2 =
  124. OBJECT
  125.   UNION
  126.     SPHERE Slice2 END_SPHERE
  127.     SPHERE Slice2 ROTATE <0.0 -20.0  0.0> END_SPHERE
  128.     SPHERE Slice2 ROTATE <0.0 -40.0  0.0> END_SPHERE
  129.     SPHERE Slice2 ROTATE <0.0 -60.0  0.0> END_SPHERE
  130.     SPHERE Slice2 ROTATE <0.0 -80.0  0.0> END_SPHERE
  131.     SPHERE Slice2 ROTATE <0.0 -100.0 0.0> END_SPHERE
  132.     SPHERE Slice2 ROTATE <0.0 -120.0 0.0> END_SPHERE
  133.     SPHERE Slice2 ROTATE <0.0 -140.0 0.0> END_SPHERE
  134.     SPHERE Slice2 ROTATE <0.0 -160.0 0.0> END_SPHERE
  135.     SPHERE Slice2 ROTATE <0.0  180.0 0.0> END_SPHERE
  136.     SPHERE Slice2 ROTATE <0.0 -200.0 0.0> END_SPHERE
  137.     SPHERE Slice2 ROTATE <0.0 -220.0 0.0> END_SPHERE
  138.     SPHERE Slice2 ROTATE <0.0 -240.0 0.0> END_SPHERE
  139.     SPHERE Slice2 ROTATE <0.0 -260.0 0.0> END_SPHERE
  140.     SPHERE Slice2 ROTATE <0.0 -280.0 0.0> END_SPHERE
  141.     SPHERE Slice2 ROTATE <0.0 -300.0 0.0> END_SPHERE
  142.     SPHERE Slice2 ROTATE <0.0 -320.0 0.0> END_SPHERE
  143.     SPHERE Slice2 ROTATE <0.0 -340.0 0.0> END_SPHERE
  144.   END_UNION
  145.   BOUNDED_BY
  146.     SPHERE <0.0 0.0 0.0> 12 END_SPHERE
  147.   END_BOUND
  148.   TEXTURE
  149.     COLOR RED 0.1 GREEN 0.22 BLUE 0.8
  150.     AMBIENT 0.1
  151.     DIFFUSE 0.9
  152.     PHONG 0.75
  153.     PHONGSIZE 30.0
  154.   END_TEXTURE
  155.   COLOR RED 0.1 GREEN 0.22 BLUE 0.8
  156. END_OBJECT    
  157.  
  158. {*****************************************}
  159. {*****************************************}
  160.  
  161. OBJECT
  162.    Twister
  163.    { SCALE <4.7 8.0 4.0> }
  164.    ROTATE <-15.0 30.0 0.0>
  165.    TRANSLATE <-16.0 7.7 61.5>    
  166. END_OBJECT    
  167. OBJECT
  168.    Twister
  169.    {SCALE <1.0 2.0 1.0> }
  170.    ROTATE <-15.0 0.0 -10.0>
  171.    TRANSLATE <0.0 1.0 88.0>    
  172. END_OBJECT    
  173. OBJECT
  174.    Twister
  175.    {SCALE <4.5 8.0 4.0>}
  176.    ROTATE <0.0 45.0 0.0>
  177.    TRANSLATE <13.0 25.0 40.0>    
  178. END_OBJECT    
  179.  
  180. OBJECT
  181.    Twister
  182.    {SCALE <4.5 8.0 4.0>}
  183.    ROTATE <-15.0 0.0 -10.0>
  184.    TRANSLATE <26.0 14.0 70.0>    
  185. END_OBJECT    
  186.  
  187. { Little Things }
  188. OBJECT
  189.    Thing 
  190.    SCALE <1.5 3.0 1.5>
  191.    TRANSLATE < -11.0 1.55 95.0> 
  192. END_OBJECT    
  193. OBJECT
  194.    Thing2 
  195.    SCALE <6.0 6.0 6.0>
  196.    ROTATE <-10.0 30.0 0.0>
  197.    TRANSLATE <-11.0 1.55 95.0> 
  198. END_OBJECT    
  199.  
  200. OBJECT
  201.    Thing 
  202.    SCALE <1.5 3.5 1.5>
  203.    TRANSLATE <-10.0 10.55 95.0> 
  204. END_OBJECT    
  205. OBJECT
  206.    Thing2 
  207.    SCALE <10.0 10.0 10.0>
  208.    ROTATE <0.0 0.0 -35.0>
  209.    TRANSLATE < -10.0 10.55 95.0>    
  210. END_OBJECT    
  211.  
  212. OBJECT
  213.    Thing 
  214.    SCALE <1.5 3.5 1.5>
  215.    TRANSLATE < -4.0 4.0 80.0>    
  216. END_OBJECT    
  217. OBJECT
  218.    Thing2 
  219.    SCALE <6.0 6.0 6.0>
  220.    ROTATE <-30.0 0.0 20.0>
  221.    TRANSLATE < -4.6 5.55 80.0> 
  222. END_OBJECT    
  223.  
  224.  
  225. OBJECT
  226.    Thing 
  227.    SCALE <1.5 3.5 1.5>
  228.    TRANSLATE < 11.0 1.6 90.0>    
  229. END_OBJECT
  230. OBJECT
  231.    Thing2    
  232.    SCALE <8.0 8.0 8.0>
  233.    ROTATE <0.0 45.0 20.0>
  234.    TRANSLATE < 10.0 7.0 90.0>    
  235. END_OBJECT    
  236.  
  237. {cloud hills}
  238. OBJECT
  239.     QUADRIC Paraboloid_Y 
  240.             SCALE<40.0 10.0 77.0>
  241.     END_QUADRIC 
  242.     ROTATE <0.0 0.0 180.0>
  243.     TRANSLATE <0.0 21.0 -28.0>
  244.     TEXTURE
  245.       Purple_Clouds
  246.       SCALE < 5.0 5.0 5.0>
  247.       AMBIENT 0.5
  248.       DIFFUSE 0.9    
  249.     END_TEXTURE
  250.     COLOR RED 0.5 GREEN 0.6 BLUE 0.2
  251. END_OBJECT
  252.  
  253. {cloud hill to right}
  254. OBJECT
  255.     QUADRIC Paraboloid_Y 
  256.             SCALE<30.0 10.0 40.0>
  257.     END_QUADRIC 
  258.     ROTATE <0.0 0.0 180.0>
  259.     TRANSLATE <40.0 14.0 50.0>
  260.     TEXTURE
  261.       Purple_Clouds
  262.       SCALE < 7.0 5.0 5.0>
  263.       AMBIENT 0.5
  264.       DIFFUSE 0.9    
  265.     END_TEXTURE
  266.     COLOR RED 0.6 GREEN 0.6 BLUE 0.1
  267. END_OBJECT
  268.  
  269. {The Sun}
  270. OBJECT
  271.   SPHERE <0.0 0.0 0.0> 150.0 END_SPHERE
  272.   TRANSLATE <150.0 40.0 1200.0>  
  273.   TEXTURE
  274.     COLOUR White
  275.     AMBIENT 1.0
  276.     DIFFUSE 0.0
  277.   END_TEXTURE
  278.   LIGHT_SOURCE
  279.   COLOUR White
  280. END_OBJECT
  281.  
  282. {sky}
  283. OBJECT
  284.    SPHERE <0.0 0.0 0.0> 2000.0 INVERSE END_SPHERE
  285.    TEXTURE
  286.      Sunset_Sky
  287.      TRANSLATE <0.0 200.0 0.0>
  288.      SCALE <1.2 1.2 1.2>
  289.      AMBIENT 0.6
  290.      DIFFUSE 0.0
  291.    END_TEXTURE
  292.    COLOR White
  293. END_OBJECT    
  294.